get_set_VS Subroutine

private subroutine get_set_VS(string, set, separator, maxlen, iostat)

Read from the default unit into a varying string, with a custom varying-string separator

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(out) :: string
type(varying_string), intent(in) :: set
type(varying_string), intent(out), optional :: separator
integer, intent(in), optional :: maxlen
integer, intent(out), optional :: iostat

Source Code

  subroutine get_set_VS (string, set, separator, maxlen, iostat)

    type(varying_string), intent(out)           :: string
    type(varying_string), intent(in)            :: set
    type(varying_string), intent(out), optional :: separator
    integer, intent(in), optional               :: maxlen
    integer, intent(out), optional              :: iostat


    call get(string, char(set), separator, maxlen, iostat)

! Finish

    return

  end subroutine get_set_VS